home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh31.d64 / test stereo-sid (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  485b  |  23 lines
  1. 10 S1=54272:REM $D400=STARTADRESSE SID1
  2. 20 S2=S1+32:REM $D420=STARTADRESSE SID2
  3. 30 POKES1+24,15:POKES2+24,15
  4. 40 FORJ=0TO2
  5. 50 READ FL,FH,EL,EH
  6. 60 POKES1+(J*7),FL:POKES1+1+(J*7),FH
  7. 70 POKES2+(J*7),EL:POKES2+1+(J*7),EH
  8. 80 NEXTJ
  9. 90 FOR M=0TO2
  10. 100 FOR J=0TO1
  11. 110 POKES1+(J*32)+(M*7)+5,3*16+15
  12. 120 POKES1+(J*32)+(M*7)+6,15*16+8
  13. 130 POKES1+(J*32)+(M*7)+4,33
  14. 140 FORI=1TO200:NEXT
  15. 150 NEXTJ,M
  16. 160 GETA$:IFA$<>" "THEN160
  17. 170 FOR J=1TO0STEP-1
  18. 180 FOR M=2TO0STEP-1
  19. 190 POKES1+(J*32)+(M*7)+4,32
  20. 200 FORI=1TO200:NEXT
  21. 210 NEXTM,J
  22. 220 DATA 90,4,123,5,133,6,180,8,247,10,10,13
  23.